Public Class StringAsIntegerComparer
	Implements IComparer

	Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare

		Dim intX As Integer = CInt(x)
		Dim intY As Integer = CInt(y)
		Return intX.CompareTo(intY)
	End Function
End Class

Public Class StringAsIntegerComparerDesc
	Implements IComparer

	Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare

		Dim intX As Integer = CInt(x)
		Dim intY As Integer = CInt(y)
		Return intY.CompareTo(intX)
	End Function
End Class
